home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 03 Demos and Info / SIDMODEM.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.6 KB  |  56 lines
  1. 10 POKE55,.:POKE56,160:CLR:C=49152:B=1
  2. 20 READY$:PRINT"READING LINE";B;"OF 20"
  3. 30 FORK=1TO2:A$=MID$(Y$,J*2+K)
  4. 40 A=ASC(A$)-48:IFA>9THENA=A-7
  5. 50 E=A+16*E:NEXT:IFE=256THEN90
  6. 60 POKEJ+I+C,E:N=N+E:J=J+1:E=0
  7. 70 IFJ=15THENJ=0:I=I+15:B=B+1:GOTO20
  8. 80 GOTO30
  9. 90 S=54272:IFN=38107THEN110
  10. 100 PRINT"DATA STATEMENT ERROR":END
  11. 110 D=56320:FORI=STOS+24:POKEI,.:NEXT
  12. 120 E=56576:POKEE+4,80:Z=D+13:POKEZ,127
  13. 130 POKEE+5,13:POKEE+13,127:POKEE+15,8
  14. 140 POKES+6,240:POKES,148:POKES+1,142
  15. 150 POKES+24,6:POKEE+11,.:POKEE+14,1
  16. 160 POKED+15,8:POKED+11,.:POKES+4,17
  17. 170 SYS49152:POKEZ,129:IFPEEK(2)THEN190
  18. 180 END
  19. 190 POKEZ,129:PRINTCHR$(147);CHR$(14)
  20. 200 N=.:PRINT"┼NTER DEVICE NUMBER."
  21. 210 PRINT:PRINT"  8";CHR$(145):INPUTN
  22. 220 IFN=.THENEND
  23. 230 IFN<4ORN>30THENPRINT:GOTO200
  24. 240 PRINT:PRINT"┼NTER FILENAME."
  25. 250 F$="":PRINT:INPUTF$:IFF$=""THENEND
  26. 260 OPEN9,3,9,F$:POKE184,8
  27. 270 POKE185,8:POKE186,N:SYS65472
  28. 280 IFST=.THENCLOSE9:GOTO310
  29. 290 PRINT:PRINT"─┼╓╔├┼ ╬╧╘ ╨╥┼╙┼╬╘"
  30. 300 CLOSE9:CLOSE8:PRINT:GOTO200
  31. 310 OPEN15,N,15:INPUT#15,J$,O$,H$,N$
  32. 320 IFJ$="00"THEN350
  33. 330 PRINT:PRINTJ$,O$:PRINTH$,N$
  34. 340 CLOSE15:CLOSE8:PRINT:GOTO200
  35. 350 SYS49276:CLOSE15:CLOSE8
  36. 500 DATA 2018E5AD0DDCF0FB2087EAA5C6F0F4
  37. 510 DATA 2042F1C985F00EC988F0082016E720
  38. 520 DATA 27C090E1A90085026085B086B184B2
  39. 530 DATA AE0DDDAE0DDDF0FBA2818E01D4A2C3
  40. 540 DATA 8E00D4A008AE0DDDF0FB4AB00FA281
  41. 550 DATA 8E01D4A2C38E00D488D0EBF00DA28E
  42. 560 DATA 8E01D4A2948E00D488D0DCAE0DDDF0
  43. 570 DATA FBA28E8E01D4A2948E00D4A5    
  44. 580 DATA A4B21860A97F8D0DDCA20820C6FFA9
  45. 590 DATA 018596A9008502A9012027C0A59620
  46. 600 DATA 27C049FF2027C0A00320A5FF858B20
  47. 610 DATA 27C0E602A690F006A91A858CD06220
  48. 620 DATA A5FF858C2027C0A690D056E60220A5
  49. 630 DATA FF2027C0858DA208068D268C268B90
  50. 640 DATA 0CA58B4910858BA58C4921858CCAD0
  51. 650 DATA E9A590D02FE60210D78A88D0D9E696
  52. 660 DATA A58B2027C0A58C2027C0E88A4868AA
  53. 670 DATA D0F9C8D0F6A590F082A9042027C0A9
  54. 680 DATA 818D0DDC4CCCFFE60230D1A91AD0A7
  55. 690 DATA 00G0
  56.